CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 
ccc DDD ODD UUU UUU 
ccc DDD DOD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 


DOD D UUU 
C DDDDDDDDDDDD UUUUUUUUUUUUUUU 
C DODDDDDDDDDD UUUUUUUUUUUUUUU 
C ODDDDDDDDDDD UUUUUUUUUUUUUUU 


COO 
OO 
OOo 
COO 
COO 
COO 
OOo 
OOo 
COOan 
Oona 
OOao 


ee ee ee ee ee ee ee eee ee eee ees Se — 
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alas! —W mr 
alas me merry 
me over) 
mney over) 
me wer) 
me over 
nore ne 
twa) me 
—— wu 
porte wu 
wu ad 228 
uu usw ww 
wu wot —22 
ww asa —22 
wus kot —22 
wus ku 22 


nw NNN 
nw NNNM 
nw nw nn 
nw nw nw 
nw nw ww 
nw nw nw 
nw nw nn 
nw ww nw 
YNNM nw 
NNNM nn 
eacacn a 
eacacac a ce 
fodiad <a ca 
ca ca ca 
aca ca 
aca cc 
ca ce 
<a ae 
eacacaacaca care 
@Qaaacacaac [> ale ale ale 


222222 


AAAAAAAAAA RR RR 


AAAAAA 
AARAAL 
BA 
AR 
— 
AAAAAAAAAA RR RR 


PPPPPPPP 
PPPPPPPP 
PPPPPPPP 
PPPPPPPP 


PP 
PP 
PP 
PP 


LLLLLELLLL 
LLLLLLLLLL 


12 

PARS 1.38 1984 23:49:4 VAX-11 Bliss-32 V4.0-74 Page 1 
—*8 Veep-198e 1:98:37 DISKSVMGHASTER ELOU SRCSPARSES.832;1°°% «1} 
ls 1 1 MODULE parse3 (IDENT="V04-000' 

; : : ADDRESSING_MODE (EXTERNAL =GENERAL) 

: i : = BEGIN 
i: 5 005 ; PPE SECT SSIS ELITE TITTLE TiTLitiititiy 
: te * 
: § 8 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 8 08 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 ‘* ALL RIGHTS RESERVED. : 
.. w 11 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ig gWnòg 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 1 1 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 8 84 TRANSFERRED. : 
; 18 0018 1 i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
3 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 9 83 = CORPORATION. 
; ¢ 83 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 00 1 != SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
3 4 0024 1 !« * 
. 1 

0036 : —————— 
; (28 $058 i lee 

3 50 80 Facility: Command Definition Utility, CLD Parser Module 3 

: 1 0031 1 ! Abstract: This module is one of a few modules that implements the 

3 3 8 1! arser for CLD files. This parser translates the CLD source 
3 0035 1! anguage into an intermediate representation composed of 

; $e ite : nodes linked in a directed graph. 

; $ 88 Environment: Standard CDU environment. 

: 8 3 1 aAuthor: Paul C. Anagnastopoules 

: iB 83 Creation: 6 December 1982 

: 41 0041 1 | Modifications: 

F} 3 Bog 1! 

546 0045 1! v04-002 PCG0002 Peter George 07-Dec-1983 

: 8 bee } Allow NOT to precede expressions. 

. 7. ee 0046 1 v04-001 PCG0001 Peter George 06-Dec-1983 

; 3 3 Add NEG operator. 

: 49 9 1 Ine 

3 0 50 1 

; 1 51 1 : 

7 26 1 Library ‘sys$library:lib'; 

| 0053 1 require ‘cdureq'; 


ee 


— —i— 


086908 SII NSIS NNO OO 


ViFWN—OCONOUSWN—O0OO~n 


FRRLELRELRLELEKLKKK EES 


ere 
33 


Se 


— — — — — — — — — — — — — — — — — — — — — — — — 


ooo 
Ow 


forward 


external 
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| PARS 14.58 1984 23:49:4 VAX-11 Bliss-32 V4.0-74 p 3 
—X — ———— 
114* 
1 3 1! Description: This synton routine recognizes the ‘‘bool-expr’’ construct, 
¢ 9 : } which is the top-ievel boolean expression construct. 
1 Parameters: None. 
} ; Returns: Top-level node representing a boolean expression. 
! Notes 
1: 
1 


GLOBAL ROUTINE cdu$bool_expr 
= BEGIN 


local 


LESRENLISSSLESE 


expr: ref node, 
term: ref node, 
last_term: ref node; 


! A boolean expression must begin with a boolean term. Parse the term. 
! If there is no operator following it, then return the term as 
! the representation of the expression. 
term = cdu$bool_term(); 
if not token_isTtkn_k_symbol,'OR') then 
return .term; 
! Create an OR node to collect the terms. 
expr = cduScreate_node(node_k_or); 
! Now go into a loop to recognize all remaining operators and terms. 
loop ( 
! Link the latest term onto the expression node. 


Link_parent_to_child(expr,term,last_term); 


PUPP PUPP DUP DU IVS SV SIUSVUSUSUSVU SUSI SISSIES 


WARP 2 OO 


WN ⏑ WN“ OOODNOU SW "0 0@ 


' If we don't have another operator, then we are done. 


SOMONE SS TESA ASASSBLSSRERSSSSLSSPLELLES 


SOOOCOCOCOCSCSCOCO COSCO OCOOOCOOOSOOOOOOOOOOOOCOOOoOO 


S2SSe~N 


53 
3 if not token_is(tkn_k_symbol,'OR') then exitloop; 
; 5 ! We must have another term. 
339 cdu$get_next_token(); 
5 : term = cdu$bool_term(); 
53 ); 
540 
541 return .expr; 
*8 
54 : 
0#250 L1:0529 ee 
erenced LOCAL symbol LAST_TERM is probably not initialized 


—xxe— 
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PARS a ep-1984 VAX-11 Bliss-32 V4.0 4 
— — 11:58:57 DLSKSVMSMASTERSCCDU. SRCSPARSES.032;1°°%* (3) 
| TITLE PARSE 

| “IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE,2 


534 00000 P.AAA: ASCII \OR\ ; 
Zt 90002 PLAAB: ASCII \OR\ : 


«EXTRN CDUSCHECK_FOR_CHILDREN 
eEXTRN COUSER EATE_NODE 

~EXTRN CDUSGET_NERT_ TOKEN 
eEXTRN CDUSLOORUP _CRILD 

-EXTRN CDUSREPORT— SYNTAX ERROR 
~EXTRN ¢DUSTOKEN Must 

«EXTRN CDUSGL_TOREN_CCASS 
-EXTRN CDUSGQ— TOKEN 


-PSECT SCODES,NOWRT,2 | 
0502 


O1FC 00000 -ENTRY CDUSBOOL_EXPR sexe +t R3,R4,R5,R6,R7,R8 3 
58 000000006 00 9€ 0000 MOVAB CDU$G ~TOKEN, CLA : 
000000006 00 9€E 000 MOVAB cDUSG tok KEN? AS : 
oooov CF 0 FS 0010 CALLS CDOSBOOL_TERM + 0515 
56 0 0 0015 MOVL + ¥ a $ 
0D 68 01 90018 CMPL  CDUSGL_TOKEN_CLASS, #13 > 0516 
0 if 0018 BNEQ 13 ; 
50 6 — 00010 MOVL CDUSGQ_TOKEN+4, RO g 
02 00 60 FC. A? 2d 00020 CMPCS CDUSGQ"TOKEN, (RO), #0, #2, P.AAA ; 
0000" CF 00026 : 
4 13 00029 BEQL 28 : | 
50 6 DO 00028 1$: MOVL ‘TERM, RO : 0517 
04 0002€ RET F | 
29 DD O002F 2$: PUSHL #41 : 0521. 
000000006 00 1 FB 00031 CALLS #1, CDUSCREATE_NODE ; | 
5 0 pO 00038 MOVL x : 
08 AS D5 00038 3$ TSTL 8(EXPR) : 0529 | 
06 iF 00036 BNEG 4$ : 
08 AS 56 DO 0004 MOVL TERM, 8(EXPR) ; 
04 11 00044 BRB 5$ ; 
04 A4 6 DO 00046 4$: MOVL TERM, 4(LAST_TERM) 3 
54 56 DO OO04A 5$: MOVL TERM, LAST_TE 3 
Op 68 D1 00040 CMPL § CDUSGL_TOKEN_CLASS, #13 : 0533 
1F if} 005 BNEQ 6$ ; 
5 67 p 004 MOVL.  CDUSGQ_TOKEN+4, RO : 
02 00 6 me > Ar D 6 33 CMPCS CDUSGQ"TOKEN, (RO), #0, #2, P.AAB ; 
ff 12 O03 BNEQ 6$ : 
000000006 00 FB 0006 CALLS #0, CDUSGET_NEXT_TOKEN : 0537 
0000v CF F st CALLS #0, CDU * oc_ TERA ; 0538 
56 p 0 6C MOVL RO. TERM F | 
50 get Boor) 6s are. EXPR, RO O32 
Be 00074 RET > 0543 


: Routine Size: 117 bytes, Routine Base: S$CODE$S + 0000 


ge 5§ 


12 
tbe 1556 1984 23:49:4 VAX=11 Bliss-32_ V4.0-74 P 
04 4 #7 33 DI SKSVMSMASTER-CCDU. SRCUPARSES..832; 1 : (4) 


14-Sep-1984 


tee 
! Description: This synten routine recognizes the ‘‘bool-term’’ construct, 
: ein s the construct from which boolean expressions are 
uvilt. 


uw 


FUSS 


' 

} 

Parameters: None. 
; Returns: The top-level node representing the term. 
; Notes: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 GLOBAL ROUTINE cdu$bool_term 
= BEGIN 
local 
term: ref node, 
factor: ref node, 
last_factor: ref node; 


! A boolean term must begin with a boolean factor. Parse the factor. 
! If there is no operator following it, then return the factor as 
! the representation of the term. 


VOco OONOUN Ew O0@ 


factor = cdu$bool factor(); 
if not token_is(tkn_k_symbol,‘AND') then 
return .factor; 
! Create an AND node to collect the factors. 
term = cdu$create_node(node_k_and); 
! Now go into a loop to recognize all remaining operators and factors. 
loop ( 
! Link the latest factor onto the term node. 
Link_parent_to_child(term, factor, last_factor); 
! If we don't have another operator, then we are done. 
if not token_is(tkn_k_symbol,*AND') then exitloop; 
! We must have another factor. 


SIO PSO OO NOE UNI OOOO OA POW OS OO0 GOA UNO 00 Ora 


cdu$get_next_token(); 
factor = cdu$bool_factor(); 


OOCOOCOOSOCOCOCOOOSCOCOSSSOSSSOCOOOOSOOOOCOO —— 


oooo 
Aww aleal al ab ah Ab Ab ab Ab Ab Ab Ab Ab Ab Ab Ab oh Ab edb db dh Ab dh ah ab al al al eal eal al al tal eal ealealeal vale www) 


OO NIN INN NNSA AAA AAAAA AMM BS BBE EEE EEE 


d3 
return .term; 
END; 


; INFO#250 L1:0583 , — 
; Referenced LOCAL symbol LAST_FACTOR is probably not initialized 


S — — — — — — — — — — — — — — — — — — — — — — — —— —— — — — — — — — — — — — — — — — — — — —— —— — 
MEW OO 


— 


03 


03 


3; Routine Size: 


b-Sep-19 & & $3: $33 


14-Sep-1984 


44 4E 41 60006 P.AAC: 
44 4E 41 00007 P.AAD: 


oO 
= 


O9-077"— WO—99090-—"0-"”0070900— NUO-VO7007 
FO-CODN GVOrw—cammoa 
SOOSOOSOSCOSSOSSOOSCODSOOSOCOCOOOOOOOOOOOOOOO 


0000Vv 


00 


nm = 
rw 


000000006 00 
55 
08 
08 AS 
04 A4 


we 
bh ed 


00 60 


000000006 00 
0000V gf 


MONDO HO FA AVMOMOPKPVNIONM MOO PReOCMOdSooO 
MPS OOO VIN XDAALSAOOMSC-D KHL ™*NNM™WOOCOOS 
COOSSCOCOOOSOSOOSOOSOSOOSOSOSOSOSOOSOOOOOSOSOoOOoOoOoOSoOo 
COOCCCOCOCOOCCOSSCOSOOCOOOOCOOOOOOOOOOOOoOOoe 
SNA AA DAMME & & EAMONN 2 2 | S$ OOS 
YVMNVOOS FO LOMB O-- MMW OO OCOWMOMOONVvoO 
Ww 
wn 


50 


o 
ba 


117 bytes, Routine Base: S$CODE$ + 0075 


»PSECT 


ASCII 
ASCII 


«PSECT 


VAX-11 Bliss-32 V reg 

Disk $V nen ASTER: cop —W PARSE3.832; —E 
SPLITS,NOWRT,NOEXE,2 
\AND\ 
\AND\ 


SCODES ,NOWRT ,2 


CDUSBOOL_TERM Save * RR. »R3,R4,R5,R6,R7,RB 
CDUSGL_ TOKEN, ELAS 


D 
i 
CDUSGQ_TOKEN+4, RO 
CDUSGQ" TOKEN, (RO), #0, #3, P.AAC 


bused. 
A FACTOR 


USGL_ TOKEN_CLASS, #13 


2s 
FACTOR, RO 


#43 
#1, 
RO 


CDUSCREATE_NODE 
TERM 


8( TERM) 

FACTOR, 8( TERM) 

FACTOR, 4(LAST_FACTOR) 
FACTOR, LAST_FACTOR 
CDUSGL_ TOKEN“CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), #0, #3, P.AAD 


. CDUSGET NEXT TOKEN 
, 4 bUSBOOL _F FACTOR 

« FACTOR 

RM, RO 


Pe Pe Se Se Ge Se Ge Be Se Se Be Be Be Se Se Se Ge Se Se Se Be Se Se Be Be Be Fe Fe Fe Se Se Be Se Se 


6 
(4) 
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PARSE3 15-Sep-1984 23:49:40  VAX*11 Bliss-32 v4.0 
04 122300188 13588559 dinghastensce 


rity Page 7 
- 4-Sep-19 DISKSVMSMASTER: CCDU.SRCJPARSE3.832;1 (5) 
: «189 598 1 !++ - 

; 190 599 1! Description: This syntex routine recognizes a ‘‘bool-factor’’ construct, 

H 13) res ! which is the contruct from which boolean terms are built. 

3 198 ret 1 ! Parameters: None. 

3 194 28 1! 

3 13? 388 Returns: The top-level node representing the factor. 

3 199 606 1 ! Notes: 

; 198 07 1 !<- 

3; 199 0608 1 

: 200 86 1 GLOBAL ROUTINE cdu$bool_factor 

; 201 610 = BEGIN 

3 4 0611 

3; 2 84 local 

; 204 061 factor: ref node, 

3 38 0614 item: ref node, 

: 206 0615 last_item: ref node; 

3 2or 0616 

3 $06 0617 

; 8 gets ! Determine which kind of factor we have. 

; 311 Regd if token_is(tkn_k_open_paren) then ( 

3 218 0692 3 ! We have a subexpression. Just return its top-level node. 

3 siz bese : cdu$get_next_token(); 

: 216 0625 3 factor = cduSbool_expr(); 

: 217 0626 3 cdu$token_must_bettkn_k_close_paren); 

; 218 0627 3 return .factor; 

: 219 0628 ); 

; 220 0629 

3 $$) Bost ; if token_is(tkn_k_symbol,*ANY2") then ( 

3 $5 83 3 ! We have an ANY2 operator, which really looks Like a function. 

3 $se 8987 ; ! Create a node to represent the ANY2 function. 

; 226 0635 factor = cdu$create_node(node_k_any2); 

; 3 83 cdu$get_next_token(J; 

: $$ 0638 ! We have a parenthesized List of paths. : 2 

; 0 0639 ! Eat the open perenthes ‘9. Then sit in a loop which recognizes at 
; 231 0640 ! least one path, along with any others separated by commas. Finally, 
; 3 641 ' eat the close parenthesis. All of the paths are chained as children 
: sz nee ! of the ANY2 node. 

3 @s9 Bose cduStoken_must_be(tkn_k_open_paren) ; 

: 236 45 4 loop ( 

s ¢or 88 4 item = cdu$Spath(); . 

; 238 47 4 Link parent _to_child( factor item, last_item); 

: 239 648 4 f not token_is(tkn_k_commas then exitloop; 

; ry 8 4 cdu$get_next_token(); 

: 4g 651 ; cdu$Stoken_must_be(tkn_k_close_paren); 

s 26 $36 return .factor; 

3 244 065 § ); 

: 245 0654 


ñ 
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PARS 15-Sep-1984 23:49:4 VAX-11 Bliss-32 V4.0 
V04= 127885-198e 17:88:37 
; “8 z3 if token, is Ctkn, ksynmbot, nor) then ( 
; 248 889 1 We have a NOT operator. Create a node to represent it. Recognize 
3 8 228 ! a boolean factor following the NOT and Link it as the child. 
J 21 660 factor = cduScreate_node(node_k_not); 
: 26 661 cdu$get_next_token(J; 
3; 66 item = Cdu$bool_factor(); 
: 254 6 Link_parent_to_child(factor,item,last_item); 
; 255 664 return .facfor; 
; 256 0665 ); 
J 257 006 
3 38 8 if token_is(tkn_k_symbol,"NEG') then ( 
; 260 0669 : We have a NEG operator. Create a node to represent it. Recognize 
3 8 bees ! a path following the NEG and Link it as the child. 
3; € 067 factor = cduScreate_node(node_k_neg); 
> 264 067 cdu$get_next_token(); 
3s 965 0674 item = CduSpath(); : 
3 266 0675 Link_parent_to_child( factor, item, last_item); 
> 267 0676 return .factor; 
; 268 0677 ); 
: 269 0678 ; oo 
J 270 0679 : If it's none of the above, then it must be a path, which specifies a 
3 14 bees ! particular parameter, qualifier, or type keyword. 
3 $78 Beng return cdu$path(); 
: 274 068 
3; 27s 0684 1 END; 
> INFO#250 L1:0647 


Referenced LOCAL symbol LAST_ITEM is probably not initialized 
-PSECT SPLITS,NOWRT,NOEXE ,2 

AE: .ASCII \ANY2\ 3 
A \NOT\ 


N 
\NEG\ : 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 .ENTRY CDUSBOOL FACTOR, Save R2,R3,R4.R5.R6,.R7.R8.-; 0609 
58 900000 6 00 9€ 0000 MOVAB CDUSTOKEN MUST BE, R11 : | 
SA 9900 G 0 9E 0000 MOVAB  CDUSCREATE_NODE, R1 ; 
59 000 000 G 9E 0019 MOVAB CDUS$GL_TOKEN_CLASS, R9 ; 
538 900000 G 00 9 01 MOVAB CDUSGET_NEXT TOKEN. R& ; 
57 000000006 9 oF 0 3 MOVAB  CDUS$GQ_TOKEN?4, R7 : 
07 pt 00 3 CPL FDUSGL “TOKEN, CLASS, a7? ; 0620 
68 FB 09 A CALLS #0, CDUSGET_NEXT TOKEN : 0624 
FEES cf : FB 02D CALLS #0, CDUSBOOL_EXPR > 0625. 
4 D0 00032 VL —s RO, FACTOR ; 


~32_V4.0-74 p | 
DISKSVMSMASTER:CCDU. SRCSPARSE3.832;1/ °° (5) 


— 


13 
18-32 $1984 23:49:4 VAX-11 Bliss-32 V4.0-74 Pa 9 
12-8087 382 $3338: $9 DI SKSVMEMASTER CUD Sac SPARSES.032: 1 9 55 
47 11 000 BRB 5$ 3 0626 
0D 69 D] 09 1$ CPL CDUSGL TOKEN_CLASS, #13 : 0630 
50 67 06 $0 C MOVL.  CDUSGQ_TOKEN+4, RO : 
60 FC 6A? «2D O003F CMPCS CDUSGQ"TOKEN, (RO), #0, #4, P.AAE : 
0000" CF 0045 : 
B 12 00048 BNEQ 4$ : 
D DD OO04A PUSHL #45 + 0635 
A 1 FB 004¢ CALLS #1, CDUSCREATE_NODE : 
4 0 DO 0004F MOVL RO, FACT : 
ra 00 FB 0005 CALLS #0, CDUSGET_NEXT_TOKEN t 0636 
07 oD 9005 PUSHL “ + 0644 
6B 01 FB 0005 CALLS CDUSTOKEN _MUST_BE : 
0000v CF 00 FB O005A 2$: CALLS 50° DUSPA + 0646 
56 50 00 8 MOVL R 4 : 
08 Ad 05 00 62 TSTL RO; Tem > 0647 
06 iF 9006 BNEQ : 
08 A 6 D0 00067 MOVL ITEM, 8(FACTOR) : 
04 11 00068 BRB : 
04 AS 56 DO 0006D 3$: MOVL ITEM, 4 {LAST ITEM) : 
55 56 DO 00071 4$: MOVL ITEM, : 
05 69 01 00074 CMPL CDUSGL_ TOKEN. CLASS, #5 : 0648 
05 12 00077 BNEQ 5$ ; 
58 00 FB 00079 CALLS #0, CDUSGET_NEXT_TOKEN + 0649 
DC 11 0007C BRB 2$ > 0644 
08 DD OOO7E 5S: PUSHL "8 > 0651 
6B 01 FB 00080 CALLS CDUSTOKEN_MUST_BE : 
5D 11 00083 BRB 18 : 0652 
0D 69 D1 00085 6s: CMPL § CDUSGL_TOKEN_CLASS, #13 : 0655 
2C 12 00088 BNEQ &8$ F 
50 67 DO OO08A MOVL.  CDUSGQ_TOKEN+4, RO ; 
60 FC A? 2D 0008D CMPCS CDUSGQ"TOKEN, (RO), #0, #3, P.AAF : 
0000" CF 00093 : 
1E 12 00096 BNEQ 8$ F 
2C DD 00098 PUSHL #44 > 0660 
6A 01 FB OO09A CALLS #1, CDUSCREATE_NODE : | 
54 50 DO 0009D MOVL A : 
68 00 FB 000A0 CALLS #0. CDUSGET_NEXT_TOKEN > 0661 
FFS8 = CF 00 FB 000A3 CALLS “0, COUSBOOL_ FACTOR : 0662 
56 50 DO 000A8 78: MOVL ; 
08 A& DS 000AB TSTL BCEACTOR) > 0663 
2B 12 OOOAE BNEQ 9S : 
08 A 56 DO 00080 MOVL ITEM, 8(FACTOR) : 
29 (11 00084 BRB 10$ ; 
0D 69 D1 00086 8S CMPL  CDUSGL_TOKEN_CLASS, #13 : 0667 
2B 12 00089 BNEQ 12$ : 
50 67 00 00088 MOVL. CDUSGQ_TOKEN+4, RO : 
60 FC AZ 2D OOOBE CMPCS5 CDUSGQ~TOKEN, (RO), #0, #3, P.AAG : 
0000" CF 000¢4 : 
1D 12 000C7 BNEQ 12 ; 
35 DD 000C9 PUSHL #53 > 0672 
6A 01 FB 000CB CALLS #1, CD USCREATE _NODE : 
54 50 DO O00CE OVL RO, FACT : 
64 00 FB 000D1 CALLS #0. CDU —9 NEXT_TOKEN : 0673 
0000v CF 00 FB 90004 CALLS #0, CDUSPATA > 0674 
CD 11 00009 BRB 7$ ; 
046 AS 56 DO 000DB 9$ MOVL ITEM, 4(LAST_ITEM) > 0675 


i ai ata EE a ea a ee el 8 


13 
PARSE. Aeros 75:49 


55 56 00 000 
50 54 00 80 11$: Ht 
04 OO0E RET 
0000v CF 00 FB QO0E6 12$: CALLS #0, CDUSPATH 
4 O0O0EB RET 


: Routine Size: 236 bytes, Routine Base: S$CODES + OOEA 


SE ES ERE AP ROR Bit ee — ——— 


DF 10$: MOVL ITEM, LAST_ITEM 
FACTOR, RO 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: chou" She PARSE3.832; - 


-oO 


4 
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| PARSES 13-Sep-19 4 23:49:4 VAX-11 Bliss-32 V4.0-74 Page 11 
v06=- 12286871 98e 313 DISKSVMSMASTER:CCDU.SRCJPARSE3.832;1 x (6) 
is 2 0685 1 !++ . 

; 278 bees 1! Description: This syntax routine recopnizes the ‘‘path’’ construct, which 
> 279 06 1 i is used to specify an entity path. An entity path has the 
3 9 pee : following format: 

; : Bene : } {< definition >] entity.entity... 

: 284 0692 1! The optional definition specifies a verb or syntax change 

; 285 0695 1! definition, and the entities epee Sty a hierarchical pat 

; 286 0694 1! to a parameter, qualifier, or type keyword. 

; 287 0695 1! 

; 288 696 1 ! Parameters: None. 

; 289 697 1! 

; 290 698 1 ! Returns: The node representing the path. 

: 291 0699 1! 

; 29 0700 1 ! Notes: 

3; 0701 1 !-- 

: 294 0702 1 

> 295 0703 1 GLOBAL ROUTINE cdu$path 

: 296 0704 2 = BEGIN 

: 297 0705 

; 298 0706 local 

$ $38 0707 path: ref node, 

: 300 0708 2 item: ref node, 

; 301 0709 last_item: ref node; 

; 2 0710 

; 2 0711 

: She orig ! Create a node to represent the path. 

3 30¢ 84 2 path = cdu$create_node(node_k_path); 

3 8 aris ! See if a definition name is specified in angle brackets. 

3 319 gris if token_is(tkn_k_open_angle) then ( 

s Ssi2 0720 3 ! The next token must be a symbol specifying the definition. 

$ $12 ors) ! Create a node for it and Link it to the top-level path node. 

3; 6315 0798 cdu$get_next_token(); — 

: 316 0724 item = cduScreate_node(node_k_path_definition,.cdu$gq_token[len],.cdu$gq_token(ptrJ); 
3 317 0725 ; Link_parent_to_child(path, item, last_item); 

3 18 Bret cdu$token_must_be(tkn_k_symbol); 

3 $9 83 ! Now there must be a close angle bracket. 

: 322 $780 cdu$Stoken_must_be(tkn_k_close_angle); 

; $57 0731 ); 

: 324 O78 oF ape ; 

3 325 07 ! Now we have a sequence of one or more symbols specifying the entity path. 
3 $8 bree ! Create a node for each one and Link them to the top-level path node. 

: 328 83 loop ( 

; 34 073 item = cdu$create_node(node_k_path_entity,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
3 0738 Link_parent_to_child(path, ifem,last_item); 

; «331 0739 cduSfoken_must_be(tkn_k_ symbol); 

2 332 0740 if not token_iS(tkn_k_ddt) then exitloop; 

; 333 0741 cdu$get_next_token(J; 


— — 
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| PARSE 1-52 $1984 23:49:4 VAX-11 Bliss<-32 V4.0-74 Page 12 
—R 14-Sep-1986 $7 :63:39 DLSKSVMEMASTERSLCDU. SRC SPARSE3.832; 1 . (6) 
: 74 v3 

: 5 74 

; 744 return .path; 

; 0745 

; 8 0746 END; 

3 INFO#250 L1:0725 

: Referenced LOCAL symbol LAST_ITEM is probably not initialized 


O3FC 00000 .ENTRY (CDUSPATH, Save R2,R3,R4,R5,R6,R7,RB,RI : 0703 
59 000000006 00 9€ 00002 MOVAB CDUSGET_NEXT_TOKEN, : | 
58 000000006 00 9€ 00009 MOVAB CDUSGL_TOKEN“CLASS, R8 : | 
57 000000006 00 9€ 00010 MOVAB CDUSCREATE_NODE, R? : 
36 000000006 00 9€E 00017 MOVAB CDUSTOKEN MUST_BE, R6 : 
55 000000006 00 9E O00iE MOVAB CDUSGQ_TOREN+4, R5 : 
2E DD 000 PUSHL # + 0714 
67 gi FB 00027 CALLS #1, CDUSCREATE_NODE : 
52 0 DO O002A MOVL RO, PAT : 
OE 68 01 0002D CMPL CDUSGL_ TOKEN. CLASS, #14 + 0718) 
2D 12 00030 BNEQ 3 : 
69 09 FB 90032 CALLS #0, CDUSGET_NEXT_TOKEN + 9723 
6 pp 0003 PUSHL CDUS$GQ_TOKER+4 : 0724 
7E FC} =6A5) «63C 00037 MOVZWL CDUSGQ~TOKEN, ~(SP) : 
30 DD 00038 PUSHL #4 ; 
67 03 FB 00030 CALLS #3, CDUSCREATE_NODE F 
54 50 pO 00040 MOVL RO, ITEM : | 
08 A2 05 00043 TSTL 8(PATH) : 0725 
06 12 00046 BNEQ 1$ ; | 
08 A2 54 DO 00048 MOVL ITEM, 8(PATH) : 
04 11 0004¢ BRB 2$ : 
04 A3 54 D0 O004E 1$: MOVL ITEM, 4(LAST_ITEM) F | 
53 54 DO 00052 2$: MOVL ITEM, LAST_ITEM : | 
0D DD 00055 PUSHL #1 : 0726. 
66 01 FB 00057 CALLS #1, CDUSTOKEN_MUST_BE : | 
OF DD 0005A PUSHL #15 : 0730. 
66 01 FB 0005C¢ CALLS #1, CDUSTOKEN_MUST_BE ; | 
65 bp O005F 3$: PUSHL  CDUSGQ_TOKEN+S : 0737) 
7E FC} 60A5) «63 00061 MOVZWL CDUSGQ"TOKEN, =(SP) ; 
31 DD 00065 PUSHL #4 : 
67 03 FB 00067 CALLS #3, CDUSCREATE_NODE ; 
54 50 00 00064 MOVL : 
08 A2 05 0006D TSTL (PATH) : 0738 
06 12 00070 BNEQ 4$ : 
08 A2 4 00 00072 MOVL ITEM, 8(PATH) : 
04 11 00076 BRB 1 
06 43 4 00 00078 4$: MOVL ITEM, 4(LAST_ITEM) : 
53 54 DO 0007C 5$: MOVL ITEM, LAST_ITEM : 
0D oD 9007 PUSHL #1 : 0739. 
66 01 FB 00081 CALLS #1, CDUSTOKEN_MUST_BE : 
09 8 D1 0084 CMPL § CDUSGL_TOKEN_CLASS> #9 : 0740 
5 12 99 7 BNEQ 6$ : 
69 0 FB 089 CALLS #0, CDUSGET_NEXT_TOKEN > 0741 
D1 11 0008C BRB > 0731 
50 52 DO OO08E 68: MOVL = PATH, RO > 0744 
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PARS VAX-11 Bliss-32 V e 13 
—* e 17:88:57 DISKSVMGMASTERSCCDU. SRCSPARSES.832:1" 99° (63 
| 04 00091 RET 3 0746 
: Routine Size: 146 bytes, Routine Base: S$CODES + 0106 

; 339 0747 

3; 340 0748 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: SPLITS 20 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: SCODES 616 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

A es ra er REE: mee: — Syabe(s eccoses- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBILIB.L32;1 18619 4 0 1000 00:01.8 

: Information: 4 

3; Warnings: 

3; Errors: 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:PARSE3/OBJ=0BJ$:PARSE3 MSRC$:PARSE3/UPDATE=(ENHS$: PARSE 3) 

: Size:. 616 code + 20 data bytes 

3; Run Time: 0:14.5 

3; Elapsed Time: 00:33.0 

3 Lines/CPU Min: 309 

3 Lexemes/CPU-Min: 18182 

; poe | Used: 125 pages 

3; Compilation Complete 


— — — 
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